home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 1.iso / desktop / papcw10.zip / CONVERT.PRG < prev    next >
Text File  |  1995-01-04  |  1KB  |  53 lines
  1. LBL convert
  2. puts "   From          To\n"
  3. puts "  --------      --------\n"
  4. puts "1 pounds        kg\n"
  5. puts "2 oz            g\n"
  6. puts "3 °F            C\n"
  7. puts "4 inches        mm\n"
  8. puts "5 miles         km\n"
  9. puts "6 points        in\n"
  10. LBL L0
  11. puts "\n"
  12. PROMPT "Enter a conversion choice (1-6) and a number, or CR to exit: "
  13. ; next line executed if just a CR is entered
  14. RTN
  15. ; here if a number was entered
  16. SWAP
  17. 1 <
  18. GTO L0
  19. 6 >
  20. GTO L0
  21. JMP
  22. GTO L1
  23. GTO L2
  24. GTO L3
  25. GTO L4
  26. GTO L5
  27. GTO L6
  28.  
  29. LBL L1
  30. 0 width putstack puts " pounds = " 0.4540 * putstack puts " kg\n"
  31. GTO L0
  32.  
  33. LBL L2
  34. 0 width putstack puts " oz = " 18.3750 * putstack puts " g\n"
  35. GTO L0
  36.  
  37. LBL L3
  38. 0 width putstack puts " °F = " 32 - 5 * 9 / putstack puts " C\n"
  39. GTO L0
  40.  
  41. LBL L4
  42. 0 width putstack puts " in = " 25.4 * putstack puts " mm\n"
  43. GTO L0
  44.  
  45. LBL L5
  46. 0 width putstack puts " miles = " 1.609 * putstack puts " km\n"
  47. GTO L0
  48.  
  49. LBL L6
  50. 0 width putstack puts " points = " 72 / putstack puts " in\n"
  51. GTO L0
  52. END
  53.